home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #1 / Amiga Plus CD - 2000 - No. 1.iso / Games / Oldies / Haktar / Beispiel / Kleidung < prev    next >
Encoding:
Text File  |  1999-12-03  |  1.3 KB  |  48 lines
  1. rem Kleidung
  2.  
  3. ifflag Kleidung ausgezogen
  4.  [
  5.   handle 4
  6.  |]
  7.   rem Man kann die Kleidung nehmen und weglegen, sie wiegt 4 kg.
  8. do Kleidung untersuchen
  9.  [
  10.     rem Wenn der User 'Kleidung untersuchen' will, wird das hier ausgeführt.
  11.   print Ganz normale Sachen...
  12.     rem Natürlich ist das keine Information, aber das hier ist ja auch nur
  13.     rem ein Beispiel. Im wirklichen Leben kommen jetzt mindestens 2000 Zeilen.
  14.   addtime 2
  15.     rem Auch untersuchen dauert etwas.
  16.  ]
  17. ifflag Kleidung ausgezogen
  18.  [
  19.     rem Wenn der Held sich schon ausgezogen hat...
  20.   do anziehen
  21.    [
  22.       rem ... dann kann sich auch wieder anziehen.
  23.     print Schade...
  24.     delflag Kleidung ausgezogen
  25.       rem Haktar merkt sich, daß das Flag 'Kleidung ausgezogen' gelöscht wurde.
  26.     addtime 1
  27.       rem Das kostet natürlich etwas Zeit.
  28.     ifitemin Kleidung,INV
  29.      [|
  30.       move Kleidung,ACTROOM,INV
  31.       addweight 4
  32.      ]
  33.    ]
  34.  |
  35.     rem ... und dies hier wird nur gelesen, wenn das Flag gelöscht ist.
  36.   do ausziehen
  37.    [
  38.       rem Wenn der User die Kleidung ausziehen will, wird das hier ausgeführt.
  39.     print WOW !  Sexy...
  40.     print Du ziehst die Klamotten aus...
  41.     setflag Kleidung ausgezogen
  42.       rem So einfach geht das, Haktar weiß nun, daß der Held nackt ist.
  43.     addtime 1
  44.       rem Und anziehen geht langsamer, als ausziehen.
  45.    ]
  46.  ]
  47.  
  48.